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RMS.SRCIRMSKEYDSC.832;1 (1) | 


; 1 001 MODULE RM3KEYDSC (LANGUAGE (O15 352) ° : 
: ¢ it) JOENT = 'v04-000' : 
i Bir : 
: § sie) : leuaueenrenneeeennenseeenneererereeerertnetreettnneenensnanenanenentnnnneenns : 
Py .* * Py 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
3 4 0009 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * ; 
; + pie : x ALL RIGHTS RESERVED. * | 3 
; 4 “ g 
: ig borg 1 I ree SOF TWARE 3 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 2 
; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ; 
; 14 0014 1! IN CLUSION OF THE ABOVE Sgph dh yy F THIS SOFTWARE OR ANY OTHER * ; 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; 16 0016 1 !* OTHFR PERSON. NO TITLE TO AND DUNERSHIP OF THE SOFTWARE IS HEREBY * > 
; \ Bote : = TRANSFERRED. * : 
° :* * Ps 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
H 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * é 
3 $3 B05; : ts CORPORATION. * é 
° .* ® ° 
: 6 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS % 3 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
5; @ 0025 1 !# * : 
; «& 0026 1 !« » 3 
s o7 QO27 1 eae eae eee eR E AEE AERA E TERE RERERKERE RARER $ 
. 0028 1 5 
3 $3 5 34 1 S44 : 
; 0 0030 1! 3 
: HH itd : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION : 
: 33 $033 1 | ABSTRACT: : 
; $ Oo ' This module contains routines to allocate the key descriptors : 
: 36 0036 1: ; 
al iv 0037 1 ! ENVIRONMENT: 3 
. 2 0038 1! 3 
3 39 0039 1! VAX/VMS OPERATING SYSTEM : 
; 40 0040 1! 3 
3; 6] 0041 1 !-- F 
: ri} 0042 1 F 
; 4 0043 1! 3 
; rf Ope ! AUTHOR: Wendy Koenig CREATION DATE: 27-MAR-78 9:28 : 
: 46 0046 1 | MODIFIED BY: | ; 
; «647 0047 1! 3 
s 68 0048 1! v03-006 maseer Ron Schaefer 30-Mar-1984 | 3 
3 +4 bcp : Fix STV value on error paths for RMS$_RPL ae "RMSS -WPL errors. : 
; 51 051 1: v03-005 MCN0002 Maria del C. Nasr 15-Mar-1983 ; 
; 26 B38 ' More Linkages reorganization : 
1 = 054 1 V03-004 MCNO001 =—_—s Maria del C. Nasr 28-F eb-1983 F 
; 22 003 i Reorganize Linkages : 
. Oa9 1: v03-003 TMKO001 Todd M. Katz 08-Sep-1982 ; 
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RM3KEYDSC 16-Sep-1984 4 AX-11 8B -32 v4.0 Page 2. 
VOe~600 14- ~hep- -19 32 ar 0s YRMS. SREIRAEKE TDSC. B32; pie . (1) | 
3 8 028 1! Add support for prologue 3 SIDRs. This involves correctly ; 
; 2 1! setting the bucket type field within each alternate key of 3 
; 60 60 1! reference index descriptor according to whether SIDR key ; 
: 2 O06¢ ! compression is or isn't enabled. : 
: 6 063 1! v03-002 KBT0168 Keith B. Thompson 23-Aug-1982 | : 
: ee 0064 : } Reorganize psects . ’ : 
: 66 0066 ; v03-001 KB 10057 : Keith 8. «,Jhompgon, 2odun=1982 - | ; 
3 ! routine rm$get_next_key and change the way key descri s ; 
i 68 0068 1 are handled , peal any. eo | 
: 70 60 0 1: v02-011 PSK0003 aulina $. Knibbe 17-Apr-1981 ; 
; 0071 1! Change the ioste to initialize the bktyp fields : 
a 0072 1! because we are keeping track of compression status 3 
3 0075 1! in the prologue : 
3 74 0074 1! 3 
; 75 0075 1! #£«2v02-010 PSK0002 Paulina S. Knibbe 10-Apr-1981 | 3 
; 0076 1! Fill in the bktyp fields in the index descriptor when F 
: a th ! } it is allecated” oe initialized | : 
: 79 0079 1: v02-009 PSK0001 Paulina $. Knibbe 12-Mar-1981 ‘ 
; 80 0080 1! Add datatype information to each segment in the | 
3 + eet : IDX structure 
> B3 0083 1: v02-008 KPL0001 Peter Lieberwirth 12-Mar-1981 
: Se sit : } Rename PSECT so branches to KEY_DESC won't break. 
i 86 0086 1} vO2-007 REFORMAT Paulina S. Knibbe 23-Jul-1980 | 
: 88 0088 1! 0006 RASO013 R. A. Schaefer 22-Jan-1980 14:05 | 
; 0089 1! Change NID error to DME. 
; 0090 1! 
4 91 0091 1! 
s 9 009 1 ! REVISION HISTORY: 
.. 0093 1! 
5 94 0094 1! D. H. Gillespie, 2-AUG-78 14:31 
: 9 akg : x0002 = add one long word to in core key descriptor containing area numbers 
: 97 0097 1: wendy Koenig 3-AUG-78 12:38 | 
; 38 Oo99 : x0003 = ACC §s KEY DESCRIPTORS DIRECTLY, RATHER THAN THRU VBN 1 LINKS 
: 100 0100 1! Wend Koeni 24-0CT-78 14:02 
: 191 p18) ! : x000 MAK * CHANGES CAUSED BY SHARING CONVENTIONS 
: 198 6108 1: wend Koeni 6-NOV-78 13:04 
; 6104 0104 1! x0005 = MAK *PLG ERRORS INTO RPL 
Cie a= 
Zz een 
3 199 0109 1 
; 108 108 1 LIBRARY ‘RMSLIB:RMS'; 
; 109 109 1 
s 179 12 : REQUIRE ‘RMSSRC:RMSIDXDEF'; 
: 118 0176 1°! Define default psects for code 
: 11 0177 1! 
s 716 0178 1 PSECT 
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END; > 


IF .IFAB C IFBSB_PLG_VER J] GTR PLGSC_VER_IDX 
THEN 

' Load up the datatype fields for each segment (potentially 
ifferent) 


fe) 
d 
IN 
R 


' 
' 
; 
BEG 
DECR I FROM .DESC C KEYSB_SEGMENTS J = 1 TO 0 DO 


IDX_DFN C TYPEMAC( POSOFFSET + (4 * .1)) J = 
END -DESC C KEYOFFSET( ZQUOTE KEYSB_TYPE,.1 ) J; 


ELSE 


! Fix up the first datatype to be correct (in case this 
wasn't a segmented key. 


IDX_DFN C TYPEMAC( POSOFFSET ) J = .DESC C KEYSB_DATATYPE J; | 
CHSMOVE( IDXSC_FIXED_BLN = BEGINNING_IDX, 
-DESC™+ BEGINNING_KEY 
-IDX_DFN + BEGINNING_{[Dx ); 
Fill in the bucket types for this index 


IF 1FAB C IFBSB_PLG_VER ] LSSU PLGSC_VER_3 


BEGIN 
IDX_DFN C IDX$B_DATBKTYP ) = 1 
IDXDFN C IDX$B[IDXBKTYP } = | 


ELSE 


! First initialize the data bucket type (if 
this is the primary key index) 


BEGIN 


IF .IDX_DFN C IDX$B_KEYREF J EQL 0 
THEN 


IF .IDX_DFN C IDX$V_REC_COMPR J 
THEN 


IF .IDX_DFN C IDXSV_KEY_COMPR J 
THEN 


Primary key is compressed, data is compressed 
{DX_DFN C IDX$B_DATBKTYP ) = IDX$C_CMPCMP 
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woo 


Be 93:67: 
ELSE 


Primary key is not compressed, data is compressed 
IDX_DFN C IDX$B_DATBKTYP J = IDXS$C_NCMPCMP 


IDX_DFN C IDX$V_KEY_COMPR J 


} Primary key is compressed, data is not compressed 
IDX_DFN C IDX$B_DATBKTYP J] = IDX$C_CMPNCMP 

ELSE 
Primary key is not compressed, data is noc compressed 
IDOX_DFN C IDX$B_DATBKTYP J] = IDX$C_NCMPNCMP 


! Otherise, this must be an alternate key of reference. Initialize 
the SIDR bucket type. 


ELSE 
IF _ .IDX_DFNCIDX$V_KEY_COMPR] 
IDX_DFNCIDXS$B_DATBKTYP] = IDX$SC_CMPCMP 
IDX_DFNCIDX$B_DATBKTYP] = IDX$SC_NCMPNCMP; 
Now initialize the index bucket type 
IF .IDX_DFN C IDX$SV_IDX_COMPR J 
IDX_DFN C IDXSB_IDXBKTYP J] = IDXSC_CMPIDX 


ELS 
IDX_DFN C IDX$B_IDXBKTYP J] = IDXSC_NCMPIDX; 
END; 
RETURN RMSSUC() 
END; 
-TITLE RM3KEYDSC 
-IDENT \V04-000\ 
-EXTRN RMSCACHE, RMSCHKSUM 
-EXTRN RMSGETBLK, RMSRELEASE 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


#*°M<R4,RS> 
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RM3KEYDSC 16-Sep-1984 01:49:04 AX=-11 Bliss-32 V4.0-742 Page 9 RM3 
yo p00 RMSAL_KEY_DESC 122808- 1382 93:97: 7 AMS -SREIRMEKE TDSC 63245 . (3) v04 
5 6 0398 1 XSBTTL ‘RMSAL_KEY_DESC' H 
; , 8735 : GLOBAL ROUTINE ™RMSAL_KEY_DESC ( DESC,VBN,OFFSET ) : RLS$LINK_7_10_11 = : 
; 9 0401 1 !++ ; 
; 340 Bes 1! ; 
>; 341 0405 1 ! RMSAL_KEY_DESC ; 
: 306 0404 1! $ 
; 34 0405 1! This routine allocates the in-memory index descriptor, ; 
; 344 r4' ] 1! Links it in, and fills it in. 3 
; 345 0407 1! : 
; 37 o8'3 : } The format of the index descriptor List must be as followes: : 
3 306 Reid : o The first index descriptor is pointer to by ifb$l_idx_ptr : 
3 $5) brig ! 0 The index descriptors are Linked through idx$l_idxfl : 
3 $26 Bele : o The Last index descriptor has idx$l_idxfl set to zero ; 
> «4354 0416 1! o The primary key descriptor (key_ref = 0) must be the $ 
3 399 0417 1! first descriptor in the List and have a descriptor : 
; $29 oR : number of zero (i.e. idx$b_desc_no = 0). : 
; 358 0420 1! o Non primary key descriptors may appear in any order | : 
; 359 0421 1! by key of reference. : 
; 360 eh 1) 1! | 3 
; 361 0425 1 ! CALLING SEQUENCE: ; 
; z08 0424 1! : 
; 36 0425 1! RMSAL_KEY_DESC ( desc,vbn,offset ) ; 
3; 364 0426 1! 3 
: 365 0427 1 ! INPUT PARAMETERS: : 
; 366 0428 1! : 3 
3 (367 0429 1! desc - gee ad to descriptor in prologue : 
: 368 0430 1! vbn - VBN where the Copee “eter is in ; : : 
3 $92 bee: : offset - byte offset in the VBN where the descriptor is : 
; 371 0438 | i IMPLICIT INPUTS: | ; 
; se 0434 1! 3 
3 Sie 0435 1! R10 IFAB address | $ 
: 374 0436 1! R11 IMPURE AREA address : 
5; ire 0437 1! : 
: 376 0438 1 ! OUTPUT PARAMETERS: ; 
:. Bre 0439 1! none F 
; sre 0440 1! 3 
: 44 0441 1 ! IMPLICIT OUTPUTS: 3 
; 380 0442 1! ; ; 
3; wel 0445 1! The address of the index descriptor is returned in IDX_DFN : 
; 382 0444 1! : 
; 383 0445 1 ! ROUTINE VALUE: 3 
3; «384 0446 1! 3 
: 385 0447 1! Standard rms, in particular SUC, DME 3 
; 386 0448 1! 3 
3 fer 0449 1°! SIDE EFFECTS: 3 
; 308 0450 1! c , ; : : : 3 
3; Sey Ro 2) 1! The index descriptor is allocated, linked in, filled in ; 
; 390 136 zB 3 
; 391 0455 1 !-- 5 
3 we 0454 1 3 


SS SE] 
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| SA tee ge eet ti ct) CB eimorac age eda Sa 


NUMBER =: INITIAL(0); 


! We now have an index descriptor in IDX_DFN, size has been filled in 
link it in. NOTE: Key descriptor 0 muSt be at the head of the List 


1DX_DFN C IDXSL_IDXFL J = 0; 
If there are none then Link it in the front 
If .JFAB C IFBSL_IDX_PTR ) EQL 0 
THEN 
BEGIN 
IFAB C IFBSL_IDX_PTR J] = .IDX_DFN; 


If this is not the primary key then make the descriptor non-zero 


RM3KEYDSC 1-56 -1984 01:49:04 AX-11 Bliss-32 V4.0-742 Page 10 
voes600 RMSAL_KEY_DESC 1er8ep- 1986 13:01:27 — ERMS -SRETRMSKEYDSC.B 30/4 9° (3) 
3; Ws pte? BEGIN : 
; 394 4 8 3 
$ ave Bee ! Define external registers : 
3; 39 458 : 
s Jor 0459 EXTERNAL RESISTOR : 
3; se 0460 R_IDX_DFN_STR, 3 
; 399 0461 : “ere STR. 3 
; 400 Bees IFAB_ STR; : 
: 401 046 é 
; 40 0464 MAP 3 
3 rat Bree DESC : REF BBLOCK; ! desc points to a key descriptor : 
: red Reet if the key's datatype is illegal return an error : 
; ret ek 34 IF .DESC C KEYSB_DATATYPE J] GTRU KEYSC_MAX_DATA $ 
; 409 0471 RETURN RMSERR( DTP ); 3 
; 410 Berg H 
; 411 047 BEGIN 3 
: tig 0474 : 
3; «41 0475 LOCAL : 
; 414 0476 BLK : REF BBLOCK; 3 
: 415 0477 $ 
: 416 0478 ! Size of index descriptor = fixed portion in longwords + variable portion 3 
; 417 0479 i in Longwords which is 1 longword per segment (i.e. 1 word per size and 1 : 
; 418 0480 i word per position) 3 
: 419 0481 i 5 
: 420 0482 iF NOT RMSGETBLK( .1FAB, 
: 421 0483 idx “ae FIXED_BLN / 4 + .DESC C KEYS$B_SEGMENTS J; 
: 422 0484 BLK 
; 4235 0485 THEN 
: 424 0486 RETURN RMSERR( DME ); 
> 425 0487 
: 426 0488 IDX_DFN = .BLK 
; 427 0489 | 
: 428 0490 END; 
$ $$? 0491 
3 438 0492 BEGIN 
: 432 0494 LOCAL 
; 433 
3; 434 
s 4635 
s 6 
> «& 
s «6 
3; 6 
s & 
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RM3KEYDSC 16-Sep-1984 01:49:04 AX-11 Bliss-32 V4.0-742 Page 11 RM: 
yoe~ 800 RMSAL_KEY_DESC 1228 8=1 3Re 93303 197 RMS -SREIRM KEYDSC.832;1 . (3) Vv0é 
; 450 at 4 IF .DESC C KEYSB_KEYREF ] NEQ 0 $ 
: te) 513 4 THEN 3 
3 46 ¢ 0514 4 NUMBER = 1 5 
; 45 0515 4 $ 
> 454 B2i§ 4 END 3 
> 455 51 ELSE ; 
; 456 0518 : ; 
; 457 0519 : If this is key 0 it must go to the head of the List : 
3 ce Be ? else put it at the end of the chain : 
; 460 05 ¢ IF .DESC C KEYSB_KEYREF ) EQL 0 : 
: 461 B2 THEN : 
3 186 524 4 BEGIN 3 
; 46 0525 4 IDX_DFEN C_IDXS$L_IDXFL_J] = .IFAB C IFBSL_IDX_PTR J; ; 
> 464 05 $ 4 IFAB C IFBSL_IDR_PTR J = .1DX_DFN ; 
> 465 05 4 END | ‘ 
; 466 0528 3 ELSE : 
; 467 8262 4 BEGIN | : 
: 468 0530 4 : 
; 469 0531 4 LOCAL : 
; 470 O36 4 PTR : REF BBLOCK; ‘ 
; 471 0533 4 | $ 
3; 47 0534 4 PTR = .]FAB C IFBSL_IDX_PTR J; ; 
: 47 0535 4 : : 
3; 474 0536 4 ! Find the last index descriptor ; 
; 475 0537 4 ! F 
: 476 0538 4 WHILE .PTR C IDXS$L_IDXFL J] NEQ 0 | ; 
: 477 0539 4 0 . 
; 478 0540 4 PTR = .PTR C IDXSL_IDXFL J; ° 
3; 479 0541 4 ; | : 
; 480 Bee$ 4 ! The number of this descriptor is one higher then the Last one in | : 
: 481 05435 4 ' the chain : 
; 482 0544 4 ; ; 
; 483 0545 4 NUMBER = .PTR C IDX$B_DESC_NO J + 1; ; 
: 484 0546 4 , | : 
; 485 0547 4 ! Place the new descriptor at the end of the chain F 
: 486 0548 4 ! 3 
; 487 0549 4 PTR C IDXSL_IDXFL J = .IDX_DFN HY 
; 488 0550 4 3 
; 489 0551 END; 3 
: 490 3226 | $ 
3; «64491 055 ! Now fill it in + 
: 492 0554 ! 3 
3; 493 3222 IDX_DFN C IDXS$L_VBN J = N; 3 
> 49% 556 IDX=DFN EC IDXS$SWIOFFSET J = -OFFSET; ; 
3: 495 0557 IDX_DFN C IDX$B_DESC_NO J] = .NUMBER; 3 
: 4% 0558 IDX=DFN EC IDX$B7B1D 7 = 1Dx$C_Bip | ; 
: 497 0559 3 
3 498 0560 END; 3 
: 499 561 3 
; 500 266 RETURN FILL_IN( .DESC ) ; 
; 501 56 3 
3; 302 0564 1 END; : 
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125 bytes, Routine Base: RMS$RMS3 + OO9A 


3; Routine Size: 
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RM3KEYDSC 16-Sep-1984 01:49:04 AX-11 Bliss- 
vous 600 RMSKEY_DESC 102 360- 1984 93:69:97 AMS .SRCIRMSK 
266 ZSBTTL  'RMSKEY DESC’ 
6 GLOBAL ROUTINE RMSKEY_DESC (KEYREF) : RLS$RABREG_7 = 


le4 


' 
RMSKEY_DESC 


< 
Oo 
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Given the key of reference, this routine sets idx_dfn to the correct 
index descriptor address. ft searches the existing index descriptors 
for a match and, if it does not find it, allocates it 


EXCEPTION: if NEW_IDX is set in the irab, and if the index descriptor | 
already exists, fill it in again ( but don't re-allocate it) 


i 

i 

i 

i 

1 

i 

i 

i 

CALLING SEQUENCE: 
RMSKEY_DESC (KEYREF) 
INPUT PARAMETERS: 

keyref = key of reference 
IMPLICIT INPUTS: 

} R8 -- RAB address 

! R10 -- IFAB address 

: R11 <== IMPURE AREA address 
NEW_IDX, CACHEFLGS in IRAB 
OUTPUT PARAMETERS: 

i 

i 

i 

i 

i 

i 

i 

i 
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9 
$444 IMPLICIT OUTPUTS: 
0601 IDX_DFN will contain the address of the index descriptor 
poe NEW IDX is cleared 
060 CACREFLGS is cleared 
0604 If CACHEFLGS was non-zero ( i.e. the block was locked), 
Rene lock_bdb contains the bdb associated w/ the block 
ea t4 ROUTINE VALUE: 
609 usual rms status codes, particularly SUC,KRF,RPL 
Bett and those returned by RMSAL_KEY_DESC 
pels SIDE EFFECTS: 
0614 Allocates idx descriptor if it doesn't exist, fills it in & Links it in 
Rg12 may lock up the block containing the key descriptor 
0617 -- 
0618 
0619 BEGIN 
0620 
0621 EXTERNAL REGISTER 
0622 R_IDX_DFN_STR, 
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RM3KEYDSC 1b-Sep-19 4 04:49: 6 AX-11 Bl iss-32 V4.0-742 Page 14 
V04- RMSKEY_DESC 14-Sep-1984 13:01:27 RMS .SRCJRM3KEYDSC.B32; 1 (4) | 
; 56 06 3 COMMON_RAB_STR; 

; 624 

; 5646 be 5 GLOBAL REGISTER 

; 565 6 $ COMMON_10_STR; 

; €9 3 # MAP 

; 208 Be 4 KEYREF : BYTE; 

: 570 3 1 LOCAL 

; ef) be ¢ STATUS; 

: 578 88 : } Find the index descriptor and return its address in IDX_DFN 

; 373 0636 iDX_DFN = .IFAB C IFBSL_IDX_PTR J; 

: 577 0638 WHILE .IDX_DFN C IDXS$B_KEYREF ] NEQ .KEYREF 

im B® 
: 44 pees : If this is the last key then the key does not exist 

; 38¢ 0643 2 if ( IDX_DFN = .IDX_DFN C ID¥$L_IDXFL J ) EQL O 

; 58 0644 THEN 

; 584 0645 BEGIN 
; «585 0646 IRAB C IRBSV_NEW_IDX J = 0; 

; 586 0647 3 IRAB C IRBSB-CACREFLGS J = 0; 

; 587 0648 4 RETURN RMSERR( KRF ) 

BS * 

: 590 0651 2 ! If we don’t have to restuff the descriptor simply return 

; 591 0636 2 : 

; 292 0653 2 IF NOT .IRAB C IRB$V_NEW_IDX J | 
; 59 0654 THEN 
; 594 0655 BEGIN 

; 595 0656 IRAB C IRBSB_CACHEFLGS ) = 0; 

; 596 0657 4 RETURN RMSSUT() 

: 858 0689 3 ue 

; 4 peey 1 We clear NEW_IDX 

; 601 066 {RAB C IRBSV_NEW_IDX ) = 0; 

; yet s9¢: Go get the block 

F 605 P 0666 RE TURN_ON_ERROR( RMS CACHE ( -IDX_DFN C IDX$L_VBN J,512,.IRAB C IRBSB_CACHEFLGS J ), 

: 607 P ae IRAB C_IRBSB_CACHEFLGS ] = 0; 

; 608 P 0669 IF .RAB CRABSL_STV] EQL 0 

; 609 P 0670 THEN 

3 610 P 0671 RAB CRABSL_STV] = .STATUS OR 1°16; 

3; 611 Pp 0678 STATUS = RMSERR( RPL ) 

: 818 O64 nes. 

F ai Ror? If the chksum is bad, release the block and return 

; 16 4 O67 RETURN_ON_ERROR( RMSCHKSUM(), 

: 618 P 067 IRAB C IRBSB_CACHEFLGS ) = 0; 


RMSKEYOSC 
v04- 


; 619 P 0680 
OBE 
; 6 ¢ 6 i 
3; 6 0684 
: 624 0685 
; 625 06 § 
; 626 06 

: 627 0688 
; 628 0689 
; 629 0690 
; 630 691 
; 631 69 
; 6 ¢ 069 
3; 63 0694 
: 634 0695 
3: 655 069 
; 636 069 
; 637 0698 
; 638 0699 
; 639 0700 1 


08 


J 12 
16-Sep-1984 01:49:04 
12-88-1382 03:8: 7 
RMSRELEASE (0) 
END ); 


} Fill in the descriptor with the fresh copy 
STATUS = FILL_IN( .BKT_ADDR + .IDX_DFN C IDXSW_OFFSET J ); 


! If the block wasn't locked, release it otherwise, it is up to the caller 
to release it if this is the case, set up Lock_bdb to point to it 


if « 1RAB C IRBSB_CACHEFLGS ) EQL 0 

RMSRELEASE (0) 

IRAB C IRBSL_LOCK_8DB ) = .BDB; 
IRAB C IRBSB_CACHEFLGS J] = 0; 
RETURN .STATUS 
END; 


007C 8F BB 00000 RMSKEY_DESC:: 
PUSHR #*M<R2,R3,R4,R5,R6> 
57 OOAC CA DO 00004 MOVL  172(IFAB), IDX DEN 
18 AE 21 aA? 9 09 1$ CMPB = 33(IDX_DFN), KEYREF 
141 Of BEQL 28 
57 67 D 1 MOVL § (IDX_DFN), IDX_DFN 
Fe 1 13 BNEQ 1$ 
40 A9 O0O0800FF BF C 15 BICL2 #524543, 64(IRAB) 
5 859C BF 3 1D MOVZWL #34204, RO 
77 3 2 BRB 9$ 
42. Ad 03 £ 4 2% BBS #3, 66(IRAB), 3$ 
40 ad 9 9 CLRB  64(IRAB) 
50 01 D C MOVL #1, RO 
6A 1 F BRB 9$ 
42 08 8 1 3$ BICB2 #8, 66(IRAB) 
9 5 MOVZBL 64 {JRAB) , R3 
3 9 MOVZWL #512, R2 
p OVL  10¢IDX DFN), R1 
BSBW RMSCACRE 
3 BLBS STATUS, 5$ 
5 CLRB 64(IRAB) 
D B TSTL 12(RAB) 
1 ; BNEQ © 4$ 
¢ BISL3 #65536, STATUS, 12(RAB) 
9 4$ MOVZWL #49412. STATUS 
1 E BRB 9$ 
3 9 5$ BSBW RMSCHKSUM 
D RO, STATUS 
f 6 ST 6$ 
9 64(1 
D C R 


AX=-11 Bliss-32 V4.0-742 
RMS .SRCIRMSKEYDSC.B32;1 


0681 
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K 12 
RMSKEYDSC 16-Sep-1984 49:04 Ax-11 8 =3 -74 
yoe~ 600 RMSKEY_DESC 12-388: 3B 94:99:94 AMS SREIRMEKE TDSC “o tor, 
00006 3 6 BSB! RMSRELEAS 
50 : 4 mca TATUS, R 
OF A C 76 6$: MOV ZL 14(IDX_DFN) 
56 28 5 gi 7A DD. 3 RO, BKT_ADDR, Re 
FES 9 ie BSB PALL 
55 3 MOVL , STATUS 
40 A 0084 TSTB 64 UIRAB) 
of 12 00087 BNEQ $ 
3 Be 0089 CLR R3 
00006 39 ope BsBu RMSRELEASE 
0084 C9 9? dO 6098 7$: MOVL BDB, 132(IRAB) 
40 Ad 94 00095 8$: CLRB  64(fRAB) 
55 DO 00098 MOVL STATUS, RO 
007C 8F BA 0009B 9$: POPR #°M<R2,R3,R4,R5,R6> 
05 0009F RSB 
; Routine Size: 160 bytes, Routine Base: RMS$RMS3 + 0117 
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RMBKEYDSC 16- ~$ep-1984 01:49:04 —-YAX=11_BLiss- “74 
v0e= RMSGET_NEXT_KEY 1enee= 1 bbe Seigaise | HAMS Leh Las 2e MG-05549 — 


| 
| 
none | 
| 


BEGIN 


EXTERNAL REGISTER | 
R_IDX_DFN_STR; | 


If there isn't anymore index descriptors then exit 
IF .IDX_DFN C IDXSL_IDXFL J] EQL 0 
RETURN 0; 
IDX_DFN = .IDX_DFN C IDXSL_IDXFL J; 
RETURN 1 
END; 


SOOOCOCOCCOCOCOOOCOOOoOooOo 


: ots 7 ¢ 1 ZSBTTL ‘RMSGET_NEXT_KEY' : 
; ot f ? ’ GLOBAL ROUTINE “RMSGET_NEXT_KEY : RLSLINK_7_10_11 = : 
: 645 705 1 !44 
: 646 B78 1! : 
: rots st 44 : RMSGET_NEXT_KEY $ 
: 649 0709 1: Sets idx dfn to the address of the next key descriptor if th ; 
: $50 O710 1 Else it Teaves idx_dfn alone oad ahonesetnc te he Ahem nba: 
; 63¢ ore CALLING SEQUENCE: | 
634 Orig 1 3 RMSGET_NEXT_KEY() | ; 
3 696 716 INPUT PARAMETERS: ; 
: 658 0718 1: | : 
; 222 O719 } IMPLICIT INPUTS: | 
; o6 073 : idx_dfn = current index descriptor : 
; : O72 OUTPUT PARAMETERS: | ; 
; no ; 
Py 07 1! : 
; 07 1 | IMPLICIT OUTPUTS: | ; 
: 07 1! idx_dfn - will contain the address of the next index descriptor if | ; 
: Ore ; there is one otherwise it is not affected : 
; ors ROUTINE VALUE: | : 
: 07 +i 1 = there was a next index descriptor : 
: 87 : 0 - there was not a next one : 
; 0736 SIDE EFFECTS: F 
; 738 1 ; 
$ 7 1 i- 3 
; 7 1 : 
; 4 2 : 
; ? : : 
3 7 2 : 
; 7 3 
3 7 é 
3 7 3 
5 7 ; 
; ? : 
: 1 ; 


; Run Time: 315. 
; Elapsed Time: 0 ibe 


3 


4 
: Lexemes/CPU-Min: 213 


RM3KEYDSC =1984 01:49:04 AX-11 Bliss-32 V4.0-742 P 1 

v0e- RMSGET_NEXT_KEY or1986 3:01 oF FANS SREIRMEKE SD SC 63074 age 1 
67 D5 00000 RMSGET_NEXT_KEY:: | ; 
TSTC = (IDX_DFND : 0748 | ; 
07 13 00008 BEQL 1 : 3 
57 67 00 00004 MOVL § (IDX_DFN), IDX_DFN + 0752) ; 
50 01 00 aah MOVL #i, RO 3 0754) 5 
05 QOO0A RSB : $ 
50 D4 00008 1$: CLRL RO 3; 0756 3 
05 00000 RSB 
; Routine Size: 14 bytes, Routine Base: RMSRMS3 + 01B7 3 
; 697 0757 1 | : 
: 698 0758 1 END | : 
: 699 0759 1 : 
: 700 0760 0 ELUDOM | : 
; PSECT SUMMARY | 
; Name Bytes Attributes | : 
;  RMSRMS3 453 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) | 3 
al 
; Library Statistics 
DOr Ge Geo), ae Symbols -------- Pages Processing F 
§ File Total Loaded Percent Mapped Time é 
8 | : 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 79 2 154 00:00.4 ; 
| F 
| : 
: COMMAND QUALIFIERS | ; 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RM3KEYDSC/OBJ=OBJ$:RM3KEYDSC MSRC$:RM3KEYDSC/UPDATE=(ENHS:RM3KEYDSC) : 
; Size: 453 code + 0 data bytes : 
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